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3 1 1 ! ; 

3 ¢ : ¢ :<bl f/width:80> 

; 4 004 MODULE bpa$wakeup ( ! This module wakes a process 
ia. 33 : IDENT = "1-125" File: BPAWAKEUP.B32 

Py = 

3 ? Be : BEGIN 

: 1% 009 } leuaeeeeuenaenenereneseeneneeeecererererteententtertenetenetenetenettnntteets 
° :* * 
ee 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY & 
3 \¢ Bote 1 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. # 
3 i i : i. ALL RIGHTS RESERVED. * 
eo . * 
Eh 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 16 8218 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH CENS AND WITH THE * 
; WW 4d 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
; 18 018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 st 88 : ? TRANSFERRED. : 
; $§ 00 § 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: § 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $e + : : :* CORPORATION. ® 
o - ® 
3 26 0096 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
. ay 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0028 1 !« * 
3 $3 ot 94 1 te * 
3 Bogs ! J SeosnaneonconesosessenenssaeseseseseseroooeoneeesosoNoeoetonesooneseseoletS 
; 3) 0032 1 i<bl f/uppercase_key> 

3 3 0035 1 !<blf/lowercase_user> 

; os 0034 1! 

3 5 0035 1 

3 6 Bo88 1 !¢¢ 

; 7 037 1 ! FACILITY: BASIC=PLUS AME 

3 8 0038 1! 

: 39 0039 1 ! ABSTRACT: 

; 40 0040 1! 

: 41 0041 1! This module activates a process that has placed itself in a state 

3 $¢ 98 1! of hibernation and removes all scheduled wakeup requests for the 

3 cz Rez : process from the timer queue. 

: 49 045 ENVIRONMENT: Native mode VAX processor, User mode. 

: 4? 004 i AUTHOR: V.Eriksson (CAP) , CREATION DATE: 29-Mar-79 

> 49 04 1 | MODIFIED BY: 

3 $0 50 1! 

yea 051 1! VERSION x1 

3 26 O36 1! 

3 2 053 1! 124 = New Module ; 

3 4 054 1 ! 1-125 = Remove the reference to the REQUIRE file, and replace it with the 

3 56 036 ' DISPATCH_PSECTS macro and STARLET.L32. JBS 27-SEP-197 

; «$F 0057 1 i-- 


N 4 | 
1ergeb7 1382 91:80:82 HENSAT SAE ePAWMcEGP oS2;1 Page 4§ 


0038 icblt/page> 
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; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
bpa$wakeup; ! Wakes up a process 


INCLUDE FILES: 


3 raoxonrassesaras & 


; 1 

3 1 

: 

3 1 

5 1 

g 1 

; 1 

; 1 

; 1 

3 1 

3 1 

3 5 1 

wag . 1 

oo i 

; 3 ; REQUIRE “RTLIN:RTLPSECT’; ! Define the DECLARE_PSECTS macro 
3 #1 1] LIBRARY *RTLSTARLE'; ! System symbols 
; 8B 0 1! 

: 5 3 : MACROS: 

: 179 13 NONE 

5 7 0 1! 

; 4 ; : EQUATED SYMBOLS: 

: 90 0 1! NONE 

3 91 1 1! 

: at ; } PSECTS: 

: 4 Hy } declare_psects (bpa); ! Declare psects for the BPAS$ facility 
; % 1 i OWN STORAGE : 

; 98 191 1: 

3 99 + 1! —_ 

4 H's ; : EXTERNAL REFERENCES: 
: 10 195 1! NONE 

3 108 1 7% 

: 1046 01 1! 

: 105 0198 1 


mS SSS Se ost 
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GLOBAL ROUTINE bpa$wakeup = 


5 
1B-Sep-1964 01:41:42 yatctt BLieg=52 40-742, 


! Wakes up a process 


lee 


FUNCTIONAL DESCRIPTION: 
The system services Swake and Scanwak are called to activate the 
caller and to remove all scheduled wakeup requests for the caller 
from the timer queue. 

FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


success - 1 
failure - ?? 


SIDE EFFECTS: 


Cancels any wakeups scheduled for the process and 
wakes the process 


BEGIN 


LOCAL 
sts; ! Status received by Swake and $canwak 


IF NOT (sts = Swake ()) THEN RETURN SIGNAL (.sts); 
IF NOT (sts = Scanwak ()) THEN RETURN SIGNAL (.sts); 
RETURN 1; 
END; ! End of bpaSwakeup 
-TITLE BPASWAKEUP 
-IDENT \1-125\ 
-EXTRN SYSSWAKE, SYSSCANWAK 
-PSECT _BPASCODE,NOWRT, SHR, 
00: ENTRY BOASNAREW? Save R2 
o5 4s § v4 FACES 2 "Syssuaré 
: 50 0008 MOVL ++ 


PIC.2 


000000006 99 


Page 


r—- 


es 


| OF 5 BLBC 
| CRG 
CALLS 
A MOV 
LB 
18: nt 
000000006 00 


3; Routine Size: 46 bytes, Routine Base: _BPASCODE + 0000 


; 151 43 1 
. ¢ 0 44 1! 
a. 45 1 !<blf/page> 


Reems ts O1:4):42  YaKeIT BLieg=52 v4,0-742, 


STS, 1$ 
ag. 8 SYSSCANWAK 
RO, ST 
S18, 2 
#1, LIBSSIGNAL 
#1, RO 


0239 


i 36) 


regen 


PSECT SUMMARY 
Name Bytes 


Library Statistics 


oo------ Sym 


~-$255SDUA28 : CSYSLIBISTARLET.L32;1 9776 


COMMAND QUALIFIERS 


Size: 46 code + 0 data bytes 
Run Time: At fe 
Elapsed Time: 10.6 
Lines/CPU Min: 4455 
povence/re-itas 12718 

om Used: 41 pages 
Compilation Complete 


-EXTRN LIBSSIGNAL 
Attributes 
_BPASCODE 46 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Legere O1:4):42  YAKcIt BLiag=32 40-742, Page 6 


‘End of module 


en 


bols -coceee- Pages Processing 
File Total Loaded Percent Mapped Time 


3 0 581 00:01.0 


SLESS/CHECR OCF SELB. INE TIAL SPT INI ZED /UOTRACE/L E84. SS :OPAUAKEUP (OR J90BJS :OPRUMREUP MSRC$:BPAWAKEUP/UPDATE =(ENHS : BPAWAKEUP 
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